[Drozh]

Так?

Код:

var
 n: Integer;
begin
 Str := '1234567890,3480213734'; // твое число в текстровой форме

 n := 10; // число знаков выводимых в эдит

 Edit1.Text := Copy(Str, 1, n);
 Label1.Caption := Copy(Str, n+1, Length(Str));