很基础的小问题呀，那位大侠出手帮帮我啊。(0分)

var
i,k,n:integer;
{要在EDIT1中输入一串数，每次取出两位加空格，如EDIT1中：12345678。。。。，那在EDIT2中应是12 34 56 78。。。}
s1:string;
{并把结果显示在EDIT2中12 34 56 78。。。。。，下面这段程序那不对啊}
begin
{怎么改呢？}
k:=length(edit1.text);
s1:='';
i:=1;
if k>2n-1 then
begin
//2N-1表示取值时从第1，3，7。。。。2N-1 取 ；
while i<=2ndo
begin
g
s1:=s1+(copy(edit1.text,k-i,2)+'');
i:=i+1;
begin
edit2.text:=s1;
end;
end;
end;
end.

不对的地方太多了，我把它改了：
procedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
{要在EDIT1中输入一串数，每次取出两位加空格，如EDIT1中：12345678。。。。，那在EDIT2中应是12 34 56 78。。。}
s1:string;

begin

k:=length(edit1.text);
s1:='';
for i:=1 to (k div 2)+1do
s1:=s1+(copy(edit1.text,i*2-1,2)+' ');
edit2.text:=s1;
end;

如果要去掉最后一个空格：
procedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
{要在EDIT1中输入一串数，每次取出两位加空格，如EDIT1中：12345678。。。。，那在EDIT2中应是12 34 56 78。。。}
s1:string;
begin
k:=length(edit1.text);
s1:='';
for i:=1 to ((k+1) div 2)do
if s1='' then
s1 := copy(edit1.text,i*2-1,2)
else
s1:=s1+' '+copy(edit1.text,i*2-1,2);
edit2.text:=s1;
end;

真的很感谢你啊，可是我没有分了，水平太低，只出不进啊，只好说谢谢了。

接受答案了.

没关系，不用谢。