procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     Memo1.Lines.Clear;
     Memo2.Lines.Clear;
end;  

procedure TForm1.SpeedButton2Click(Sender: TObject);
    var Count,i:integer;
    var str:string;
begin
    Count:= memo1.Lines.Count; 	//ȡMemo1
    if Count=0 then
    begin
        ShowMessage('Memo1Ѿû');
        exit;
    end;
    str:=Memo1.Lines[0];     		//ȡMemo1еĵһ
    Memo1.Lines.Delete(0);    		//ɾMemo1еĵһ
    Memo2.Lines.add(str);     		// Memo1
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin  
form1.Close;
end;
