Delphi - Ayuda por favor!!!!! con un DBGrid

Hola buena tarde, tengo que hacer un programa que me copie con las teclas Ctrl + C registros de un dbgrid y pegralos en otra aplicacion con Ctrl + V, el codigo que tengo es el siguiente:

unit Animales;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls;

type
TForm1 = class(TForm)
Query1: TQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
E: TEdit;
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Key=Ord('C')) and (Shift=[ssCtrl]) then
Begin
E.Text :=DBGrid1.fields[0].ASstring+DBGrid1.fields[1].ASstring+DBGrid1.fields [2].ASstring+ DBGrid1.fields[3].ASstring+DBGrid1.fields[4].ASstring;
E.CopyToClipboard;
end;
end;

end.

Pero en esta parte:

Begin
E.Text :=DBGrid1.fields[0].ASstring+DBGrid1.fields[1].ASstring+DBGrid1.fields [2].ASstring+ DBGrid1.fields[3].ASstring+DBGrid1.fields[4].ASstring;
E.CopyToClipboard;
end;

Unicamente me selecciona lo que yo le indico y no me lo pega alguien me puede ayudar se que entre el Begin y el end, va otra instruccion para poder seleccionar y por sonsiguiente seguir el CopyToClipboard, pero no se como Por favor, Por favor si les es posible alguien ayudeme, de antemano gracias!!!

Buena tarde!!!
Atte: Carmen Ramirez