Procedure Format(MyEdit1,MyEdit2:TEdit);
Var
I : Integer;
S : String;
begin
I := StrToInt(MyEdit1.Text);
FmtStr(S, '%.3d', [I]);
MyEdit2.Text := S;
// I.E. If Edit1.Text := '1' den Edit2.Text := '001'; döndürür
end;

Merhaba hocalarım 

elimdeki verilerin içinde 

tarih - b1 - b3 - status(açık-kapalı pozisyon) - value(açık kapalının numaralı hali) 

bu verilerde open close şeklinde alt alta yazdırmak istiyorum

şuanki veride open ve close saatleri arasına belirli bir zaman girdiği zaman close en altlarda görünüyo ben bunun en altta diilde open in hemen altında olmasını istiyorum 

yadımcı olabilirmisiniz